home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbdos5 / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-12-05  |  7.5 KB  |  264 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    AutoRedraw      =   -1  'True
  4.    Caption         =   "MS DOS 5.0 FORMAT"
  5.    ClientHeight    =   2775
  6.    ClientLeft      =   525
  7.    ClientTop       =   2955
  8.    ClientWidth     =   6510
  9.    FontBold        =   -1  'True
  10.    FontItalic      =   0   'False
  11.    FontName        =   "MS Sans Serif"
  12.    FontSize        =   12
  13.    FontStrikethru  =   0   'False
  14.    FontUnderline   =   0   'False
  15.    Height          =   3180
  16.    Icon            =   FORM1.FRX:0000
  17.    Left            =   465
  18.    MousePointer    =   1  'Arrow
  19.    ScaleHeight     =   2775
  20.    ScaleWidth      =   6510
  21.    Top             =   2610
  22.    Width           =   6630
  23.    Begin CommandButton fmtit 
  24.       Caption         =   "OK"
  25.       Enabled         =   0   'False
  26.       Height          =   375
  27.       Left            =   5160
  28.       TabIndex        =   8
  29.       Top             =   2160
  30.       Visible         =   0   'False
  31.       Width           =   855
  32.    End
  33.    Begin TextBox infobox 
  34.       BackColor       =   &H00FF0000&
  35.       Enabled         =   0   'False
  36.       Height          =   375
  37.       Left            =   1320
  38.       TabIndex        =   4
  39.       Top             =   2160
  40.       Width           =   3855
  41.    End
  42.    Begin CommandButton stopit 
  43.       Caption         =   "STOP"
  44.       Enabled         =   0   'False
  45.       Height          =   375
  46.       Left            =   480
  47.       TabIndex        =   9
  48.       Top             =   2160
  49.       Visible         =   0   'False
  50.       Width           =   855
  51.    End
  52.    Begin CheckBox CheckSd 
  53.       Caption         =   "System Disk"
  54.       Height          =   255
  55.       Left            =   480
  56.       TabIndex        =   7
  57.       Top             =   1680
  58.       Width           =   1455
  59.    End
  60.    Begin CheckBox CheckUn 
  61.       Caption         =   "Unconditional"
  62.       Height          =   255
  63.       Left            =   480
  64.       TabIndex        =   5
  65.       Top             =   1440
  66.       Width           =   1575
  67.    End
  68.    Begin CheckBox CheckQk 
  69.       Caption         =   "Quick Format"
  70.       Height          =   255
  71.       Left            =   480
  72.       TabIndex        =   6
  73.       Top             =   1200
  74.       Width           =   1575
  75.    End
  76.    Begin CommandButton Quickfmt 
  77.       Caption         =   "Format"
  78.       Default         =   -1  'True
  79.       FontBold        =   -1  'True
  80.       FontItalic      =   0   'False
  81.       FontName        =   "MS Sans Serif"
  82.       FontSize        =   12
  83.       FontStrikethru  =   0   'False
  84.       FontUnderline   =   0   'False
  85.       Height          =   615
  86.       Left            =   4680
  87.       TabIndex        =   2
  88.       Top             =   960
  89.       Width           =   1335
  90.    End
  91.    Begin OptionButton Option3 
  92.       Caption         =   "3 1/2"
  93.       Height          =   255
  94.       Left            =   1320
  95.       TabIndex        =   12
  96.       Top             =   960
  97.       Visible         =   0   'False
  98.       Width           =   855
  99.    End
  100.    Begin OptionButton Option5 
  101.       Caption         =   "5 1/4"
  102.       Height          =   255
  103.       Left            =   480
  104.       TabIndex        =   11
  105.       Top             =   960
  106.       Value           =   -1  'True
  107.       Visible         =   0   'False
  108.       Width           =   855
  109.    End
  110.    Begin CheckBox CheckHD 
  111.       Caption         =   "High Density"
  112.       Height          =   255
  113.       Left            =   480
  114.       TabIndex        =   3
  115.       Top             =   720
  116.       Value           =   1  'Checked
  117.       Width           =   1455
  118.    End
  119.    Begin DriveListBox drive1 
  120.       Height          =   315
  121.       Left            =   2280
  122.       TabIndex        =   0
  123.       Top             =   240
  124.       Width           =   2415
  125.    End
  126.    Begin Label warn 
  127.       BackColor       =   &H000000FF&
  128.       Caption         =   "WARNING ! You may not be formatting a floppy drive !         To protect a hard drive assign it a volume label."
  129.       Height          =   1215
  130.       Left            =   2280
  131.       TabIndex        =   10
  132.       Top             =   720
  133.       Visible         =   0   'False
  134.       Width           =   1935
  135.    End
  136.    Begin Label Label1 
  137.       Caption         =   "Select Drive"
  138.       FontBold        =   -1  'True
  139.       FontItalic      =   0   'False
  140.       FontName        =   "MS Sans Serif"
  141.       FontSize        =   12
  142.       FontStrikethru  =   0   'False
  143.       FontUnderline   =   0   'False
  144.       Height          =   255
  145.       Left            =   600
  146.       TabIndex        =   1
  147.       Top             =   240
  148.       Width           =   1575
  149.    End
  150. Dim hd_ind$, drive$, un$, qk$, sd$, dt$, t%, cmmd$, setfmt$
  151. Sub CheckHD_Click ()
  152.     If CheckHD.value = 1 Then
  153.         hd_ind$ = "Y"
  154.         option3.visible = 0
  155.         option5.visible = 0
  156.     Else
  157.         hd_ind$ = "N"
  158.         option3.visible = 1
  159.         option5.visible = 1
  160.     End If
  161. End Sub
  162. Sub CheckQk_Click ()
  163.     If CheckQk.value = 1 Then
  164.         qk$ = " /q"
  165.     Else
  166.         qk$ = ""
  167.     End If
  168. End Sub
  169. Sub CheckSd_Click ()
  170.     If checkSd.value = 1 Then
  171.         sd$ = " /s"
  172.     Else
  173.         sd$ = ""
  174.     End If
  175. End Sub
  176. Sub CheckUn_Click ()
  177.     If CheckUn.value = 1 Then
  178.         un$ = " /u"
  179.     Else
  180.         un$ = ""
  181.     End If
  182. End Sub
  183. Sub drive1_Change ()
  184.     infobox.text = ""
  185.     drive$ = drive1.drive
  186.     If Len(drive$) > 2 Then
  187.         infobox.text = "This is not a floppy drive! Returning to C:."
  188.         ChDrive "c:"
  189.         drive1.drive = "c:"
  190.         drive$ = drive1.drive
  191.         warn.visible = 0
  192.         GoTo skipit
  193.     End If
  194.     If drive$ <> "a:" Then
  195.         If drive$ <> "b:" Then
  196.             warn.visible = 1
  197.         End If
  198.     Else
  199.         warn.visible = 0
  200.     End If
  201. skipit:
  202. End Sub
  203. Sub fmtit_Click ()
  204.     t% = Shell(cmmd$)
  205.     fmtit.visible = 0
  206.     fmtit.enabled = 0
  207.             stopit.visible = 0
  208.             stopit.enabled = 0
  209.             Quickfmt.enabled = 1
  210.             CheckHD.enabled = 1
  211.             CheckQk.enabled = 1
  212.             checkSd.enabled = 1
  213.             CheckUn.enabled = 1
  214.             option5.enabled = 1
  215.             option3.enabled = 1
  216.             drive1.enabled = 1
  217.     cmmd$ = ""
  218.     infobox.text = ""
  219. End Sub
  220. Sub Quickfmt_Click ()
  221.         If Len(drive$) < 3 And drive$ <> "" Then
  222.             infobox.text = ""
  223.             cmmd$ = "format.com " + drive$ + qk$ + un$ + sd$
  224.             If hd_ind$ = "N" Then
  225.                 If option3.value Then
  226.                     cmmd$ = cmmd$ + " /f:720"
  227.                 Else
  228.                     cmmd$ = cmmd$ + " /f:360"
  229.                 End If
  230.             End If
  231.             infobox.text = cmmd$
  232.             fmtit.visible = 1
  233.             fmtit.enabled = 1
  234.             stopit.visible = 1
  235.             stopit.enabled = 1
  236.             Quickfmt.enabled = 0
  237.             CheckHD.enabled = 0
  238.             CheckQk.enabled = 0
  239.             checkSd.enabled = 0
  240.             CheckUn.enabled = 0
  241.             option3.enabled = 0
  242.             option5.enabled = 0
  243.             drive1.enabled = 0
  244.         Else
  245.             infobox.text = "Please pick a floppy drive!"
  246.         End If
  247. End Sub
  248. Sub stopit_Click ()
  249.     fmtit.visible = 0
  250.     fmtit.enabled = 0
  251.     stopit.visible = 0
  252.     stopit.enabled = 0
  253.             Quickfmt.enabled = 1
  254.             CheckHD.enabled = 1
  255.             CheckQk.enabled = 1
  256.             checkSd.enabled = 1
  257.             CheckUn.enabled = 1
  258.             option5.enabled = 1
  259.             option3.enabled = 1
  260.             drive1.enabled = 1
  261.     cmmd$ = ""
  262.     infobox.text = ""
  263. End Sub
  264.